home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / DISK MAP.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  30 lines
  1. 1  REM  **************************
  2. 2  REM  *  << DISK MAPPER >>     *
  3. 3  REM  *  BY JAMES O. CHURCH    *
  4. 4  REM  *  COPYRIGHT (C) 1982    *
  5. 5  REM  *  BY MICRO-SPARC INC    *
  6. 6  REM  *  LINCOLN, MA. 01773    *
  7. 7  REM  *  ALL RIGHTS RESERVED   *
  8. 8  REM  **************************
  9. 70  HOME 
  10. 80  VTAB 10: PRINT "PLEASE WAIT ONE MOMENT FOR DISK MAP"
  11. 90  PRINT  CHR$(4);"VERIFY HELLO"
  12. 100  FOR I = 0 TO 299: READ A: POKE 16384 +I,A: NEXT 
  13. 110  CALL 16384
  14. 120 A =  PEEK(9) *256 + PEEK(8)
  15. 130  PRINT : PRINT "SECTORS FREE ";560 -A;"     SECTORS USED ";A
  16. 140  PRINT "LIGHT COLOR AREA IS FREE";
  17. 150  GET A$
  18. 160  TEXT : HOME 
  19. 1000  DATA  169,243,133,6,169,179,133,7,162,8,160,0,140,214,64,140,215,64,177,6,10,176,3,238,214
  20. 1005  DATA  64,202,208,247,162,8,200,177,6,10,176,3,238,214,64,202,208,247,174,215,64,173,214,64,157
  21. 1010  DATA  216,64,238,215,64,173,215,64,201,35,240,23,24,165,6,105,4,133,6,165,7,105,0,133,7
  22. 1015  DATA  162,8,160,0,140,214,64,76,18,64,173,80,192,173,86,192,173,83,192,32,54,248,169,2,141
  23. 1020  DATA  213,64,169,0,141,212,64,169,2,32,100,248,173,212,64,172,213,64,32,0,248,24,173,212,64
  24. 1025  DATA  105,1,141,212,64,201,32,144,234,169,0,141,212,64,24,173,213,64,105,1,141,213,64,201,37
  25. 1030  DATA  144,216,32,251,64,169,20,133,37,32,34,252,32,66,252,169,2,133,36,169,176,32,237,253,169
  26. 1035  DATA  19,133,36,169,196,32,237,253,32,142,253,169,0,133,8,133,9,162,34,189,216,64,24,101,8
  27. 1040  DATA  133,8,165,9,105,0,133,9,202,16,239,96,32,37,16,35,16,16,16,16,16,16,10,0,0
  28. 1045  DATA  0,7,16,2,16,16,16,16,16,2,0,0,0,0,0,2,0,12,8,3,3,11,0,16,16
  29. 1050  DATA  16,169,15,32,100,248,162,0,160,2,140,213,64,189,216,64,201,16,240,20,10,141,212,64,172
  30. 1055  DATA  213,64,32,0,248,238,212,64,173,212,64,201,32,144,243,238,213,64,232,224,35,144,221,96,0